program recorridos;

  var cont1,cont2: integer;
  vector: array [1..100] of real;
  encontrado: boolean;
  cont: integer;
  
begin

cont1 := 1;
cont2 := 1;
   (*recorrido con while*)
   
   while ((cont1 <= 100) AND (encontrado)) do
   begin
   if (vector[cont1]) then
   		encontrado := true;
   else 
   		cont1 := cont1+1;
   end
      
   (*recorrido con for*)
   
END.
